2022/11/29 final project Zoey Chen

Initialize libraries

## Loading required package: DBI

Set up the connection

Query3 <- "SELECT 
    *
FROM
    crime;"
data <- dbGetQuery(connection, Query3)
data$latitude <- as.numeric(as.character(data$latitude))
data$longitude <- as.numeric(as.character(data$longitude))

library(leaflet)

tag <- function (id, date, block) {
  paste(sep = "<br />", paste("<b>Crime ID:", id, "</b>"), paste("Date:", date), paste("Block:", block))
}

chi_map <- leaflet(data) %>%
  addTiles() %>%
  setView(lat=41.29, lng=-87.61, zoom=11) %>%
  addCircleMarkers(lat=~latitude, lng=~longitude, clusterOptions = markerClusterOptions(), labelOptions=labelOptions(), popup=~tag(crime_id, crime_date, crime_block), radius = 8, stroke = TRUE, fillOpacity = 0.8, opacity = 0.8)

## Warning in validateCoords(lng, lat, funcName): Data contains 4968 rows with
## either missing or invalid lat/lon values and will be ignored

chi_map